home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 October / Ahoy_Magazine_87-10_1987_Double_L_Side_A.d64 / dir 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  189 lines
  1. 30 rem********************************
  2. 32 rem*       menu program v2.0      *
  3. 34 rem*          designed by         *
  4. 36 rem*       double l software      *
  5. 38 rem* (c) 1987 all rights reserved *
  6. 40 rem********************************
  7. 41 clr:poke53296,1
  8. 42 at=679:forn=attoat+22:readm:poken,m:next
  9. 44 data32,180,2,132,251,32,180,2
  10. 46 data166,251,76,240,255,32,253,174
  11. 48 data32,158,173,32,170,177,96
  12. 50 poke53265,peek(53265)and239
  13. 60 gosub4000:v=53248:x1=75:y1=100
  14. 80 dim p$(4,12),pg$(4,12),in$(4,12):gosub5000:nn=3:b=.:gosub5190
  15. 100 poke53280,0:poke53281,1:printchr$(14):gosub2500
  16. 110 poke2040,15:pokev+39,10:pokev,x1:pokev+1,y1
  17. 120 gosub800:poke53265,peek(53265)or16:poke53296,0
  18. 140 lc=55590:p=7:h=1:pokev+21,1
  19. 145 b=b+1:ifb>nnthenb=1
  20. 150 fori=1to12:sysat,i+6,14:print"[144]"p$(b,i):next:pokev+1,y1
  21. 204 f=len(p$(b,h)):fora=0tof:pokelc+a,8:next:gosub1000
  22. 206 getan$:ifan$=""then206
  23. 208 ifan$=chr$(17)then1250
  24. 210 ifan$=chr$(145)then1300
  25. 215 ifan$=chr$(13)then2000
  26. 222 ifan$=chr$(32)thengosub3000:y1=100:goto140
  27. 225 goto204
  28. 230 print"[147]";:poke53280,0:poke53281,6:pokev+21,0
  29. 235 print"[158][204]oading...";chr$(34);p$(b,h)chr$(34);""
  30. 240 print "load";chr$(34);p$(b,h);chr$(34);",8"
  31. 250 print "run":print "[145][145][145][145][145][145][145][145][145]"
  32. 260 poke 631,13:poke 632,13:poke 198,2:end
  33. 800 print"[147]":sysat,2,2:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  34. 805 sysat,1,5:print"[144](c)1987 [196]ouble [204] [211]oftware v2.0"
  35. 810 sysat,3,2:print"[221]  [144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]  [221]"
  36. 815 fori=4to19
  37. 820 sysat,i,2:printtab(2)"[221]  [144][221]                            [221]  [221]":next
  38. 830 sysat,20,2:print"[221]  [144][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  [221]"
  39. 835 sysat,21,2:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  40. 840 sysat,22,1:print"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  41. 850 sysat,23,1:print"[221] [150][195]rsr[144]=[211]elect  [211]pc[144]=[205]ore  [154][195]/[210][144]=[197]xecute [221]"
  42. 860 sysat,24,1:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  43. 870 sysat,3,10:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  44. 880 sysat,4,10:print"[221] [205] [193] [201] [206]  [205] [197] [206] [213] [221]"
  45. 890 sysat,5,10:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  46. 900 return
  47. 1000 s=54272:pokes+23,0:pokes+24,15
  48. 1010 pokes+6,0:pokes+5,12:pokes+1,70:pokes+3,40
  49. 1020 pokes+4,0:pokes+4,65:ford=1to100:next:pokes+4,0:return
  50. 1250 y1=y1+8:ify1>188theny1=100
  51. 1255 pokev+1,y1:fori=0tof:pokelc+i,0:next
  52. 1260 h=h+1:ifh>12thenh=1
  53. 1262 p=p+1:ifp>18thenp=7
  54. 1265 lc=lc+40:iflc>56030thenlc=55590
  55. 1270 goto204
  56. 1300 y1=y1-8:ify1<100theny1=188
  57. 1305 pokev+1,y1:fori=0tof:pokelc+i,0:next
  58. 1310 h=h-1:ifh<1thenh=12
  59. 1312 p=p-1:ifp<7thenp=18
  60. 1315 lc=lc-40:iflc<55590thenlc=56030
  61. 1320 goto204
  62. 1550 sys828:pokev+21,0
  63. 1560 sysat,12,4:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  64. 1570 printtab(4)"[221] [212]his is a 128 [208]rogram.[201]t may [221]"
  65. 1580 printtab(4)"[221] not be loaded in the 64 mode.[221]"
  66. 1590 printtab(4)"[221] [217]ou must switch to the 128   [221]"
  67. 1600 printtab(4)"[221] mode in order to load this   [221]"
  68. 1610 printtab(4)"[221] program successfully. [213]se the[221]"
  69. 1620 printtab(4)"[221] prescribed method which is...[221]"
  70. 1630 printtab(4)"[221] [196][204]oad ''[208]rogname''           [221]"
  71. 1640 printtab(4)"[221]       [[208]ress any [203]ey]        [221]"
  72. 1650 printtab(4)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  73. 1660 sysat,22,3:print"[144]                                  ":gosub1000
  74. 1670 getan$:ifan$=""then1670
  75. 1680 sys882:pokev+21,1:goto225
  76. 1997 rem **************************
  77. 1998 rem ****  window routine  ****
  78. 1999 rem **************************
  79. 2000 sys828
  80. 2010 sysat,4,11:print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  81. 2030 printtab(11)"[221][211]ee [201]nstructions[221]"
  82. 2040 printtab(11)"[221][210]un [208]rogram     [221]"
  83. 2050 printtab(11)"[221][195]ancel [215]indow   [221]"
  84. 2060 printtab(11)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  85. 2070 po=55507:x=0
  86. 2080 fori=1to16:pokepo+i,0:next:gosub1000
  87. 2090 getan$:ifan$=""then2090
  88. 2100 ifan$=chr$(17)thengosub2200:po=po+40:x=x+1:ifpo>55587thenpo=55507
  89. 2110 ifx>2thenx=0
  90. 2120 ifan$=chr$(13)then2140
  91. 2130 goto2080
  92. 2140 ifx=0thensys882:goto4100
  93. 2145 ifx=2then2180
  94. 2146 ifb=1andh=3orb=1andh=6orb=1andh=9then2155
  95. 2147 ifb=2andh=1orb=2andh=3orb=2andh=4orb=2andh=8orb=2andh=10then2155
  96. 2148 ifb=3andh=1orb=3andh=3orb=3andh=5then2155
  97. 2149 rem if b=4 then2155
  98. 2150 goto2159
  99. 2155 sys882:goto1550
  100. 2159 ifx=1thensys882
  101. 2160 fori=0to35:pokev,x1+i:ford=1to35:next:next
  102. 2170 pokev+21,0:goto230
  103. 2180 sys882:goto225
  104. 2200 fori=1to16:pokepo+i,5:next:return
  105. 2500 p$(1,1)="[198]lankspeed":in$(1,1)="[198]lank in"
  106. 2510 p$(1,2)="64 [194]ug [210]ep [201][201]":in$(1,2)="[194]ug [210]ep in"
  107. 2520 p$(1,3)="128 [194]ug [210]ep ii":in$(1,3)="bug rep in"
  108. 2530 p$(1,4)="[211]pray-[195]am":in$(1,4)="[211]pray in"
  109. 2540 p$(1,5)="[208]latforms":in$(1,5)="[208]latforms in"
  110. 2550 p$(1,6)="empire":in$(1,6)="empire in"
  111. 2560 p$(1,7)="[200]otfoot":in$(1,7)="[200]otfoot in"
  112. 2570 p$(1,8)="[202]am [193]ttack 64":in$(1,8)="[202]am in"
  113. 2580 p$(1,9)="jam attack 128":in$(1,9)="jam in"
  114. 2590 p$(1,10)="64 [210][193][205][196]rive":in$(1,10)="[210]amdrive in"
  115. 2600 p$(1,11)="[204]inked [204]ist":in$(1,11)="[204]inked in"
  116. 2610 p$(1,12)="[201]nternal [196]el 1":in$(1,12)="[201]nternal 1 in"
  117. 2615 p$(2,1)="internal del 1":in$(2,1)="internal 1 in"
  118. 2620 p$(2,2)="[201]nternal [196]el 2":in$(2,2)="[201]nternal 2 in"
  119. 2630 p$(2,3)="internal del 2":in$(2,3)="internal 2 in"
  120. 2640 p$(2,4)="cliff hanger 128":in$(2,4)="cliff in"
  121. 2650 p$(2,5)="[195]liff [200]anger 64":in$(2,5)="[195]liff in"
  122. 2660 p$(2,6)="[215]ildcard [215]ord":in$(2,6)="[215]ildcard in"
  123. 2670 p$(2,7)="[196]ouble [211]ubber":in$(2,7)="[196]ouble in"
  124. 2690 p$(2,8)="phase-in":in$(2,8)="phase in"
  125. 2700 p$(2,9)="[210]eady or [206]ot":in$(2,9)="[210]eady in"
  126. 2710 p$(2,10)="h-alt":in$(2,10)="h-alt in"
  127. 2720 p$(2,11)="[196]uo-[208]rint":in$(2,11)="[196]uo in"
  128. 2730 p$(2,12)="[193]ll-[210]am [211]aver":in$(2,12)="[193]ll in"
  129. 2740 p$(3,1)="radar 128":in$(3,1)="radar in"
  130. 2750 p$(3,2)="[194]ytes '[210]' [213]s 64":in$(3,2)="[194]ytes in"
  131. 2760 p$(3,3)="bytes 'r' us 128":in$(3,3)="bytes in"
  132. 2770 p$(3,4)="[212]wo [195]olor [194]order":in$(3,4)="[212]wo in"
  133. 2780 p$(3,5)="color key":in$(3,5)="color in"
  134. 2790 p$(3,6)="[197][208][210][207][205] [212]ester":in$(3,6)="[197][208][210][207][205] in"
  135. 2800 return
  136. 3000 forcl=7to18:sysat,cl,14:print"[144]                 ":next:return
  137. 4000 rempoke657,128:rem disable shift/com key
  138. 4010 rempoke775,200:rem disable listing
  139. 4020 rempoke808,234:rem disable stop/restore
  140. 4030 return
  141. 4100 sys828:pokev+21,0:zz$=in$(b,h)
  142. 4105 open2,8,2,"@0:"+zz$+",s,r"
  143. 4106 forxx=1to5
  144. 4107 input#2,tx$(xx)
  145. 4108 next:close2
  146. 4110 sysat,7,1:print"[156][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  147. 4120 fori=8to13:sysat,i,1:print"[221]                                    [221]"
  148. 4125 next
  149. 4130 sysat,14,1:print"[221]   [144][[195]/[210]=[195]ancel * [211]pc=[210]un [208]rogram][156]   [221]"
  150. 4140 sysat,15,1:print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  151. 4145 sysat,22,3:print"[144]                                  ":gosub1000
  152. 4150 forxx=1to5:sysat,7+xx,3:print"[156]"tx$(xx):next
  153. 4160 getan$:ifan$=""then4160
  154. 4170 ifan$=chr$(13)thensys882:goto204
  155. 4180 ifb=1andh=3orb=1andh=6orb=1andh=9then4195
  156. 4182 ifb=2andh=1orb=2andh=3orb=2andh=4orb=2andh=8orb=2andh=10then4195
  157. 4183 ifb=3andh=1orb=3andh=3orb=3andh=5then4195
  158. 4184 rem if b=4
  159. 4190 sys882:pokev+21,1
  160. 4192 fori=0to35:pokev,x1+i:ford=1to35:next:next
  161. 4194 pokev+21,0:goto230
  162. 4195 sys882:goto1550
  163. 4200 goto4160
  164. 5000 fori=828to935:reada:pokei,a:next:return
  165. 5010 data 160,0,185,0,4,153,0,192
  166. 5020 data 185,0,216,153,240,195,185,250
  167. 5030 data 4,153,250,192,185,250,216,153
  168. 5040 data 234,196,185,244,5,153,244,193
  169. 5050 data 185,244,217,153,228,197,185,238
  170. 5060 data 6,153,238,194,185,238,218,153
  171. 5070 data 222,198,200,208,205,96,160,0
  172. 5080 data 185,0,192,153,0,4,185,240
  173. 5090 data 195,153,0,216,185,250,192,153
  174. 5100 data 250,4,185,234,196,153,250,216
  175. 5110 data 185,244,193,153,244,5,185,228
  176. 5120 data 197,153,244,217,185,238,194,153
  177. 5130 data 238,6,185,222,198,153,238,218
  178. 5140 data 200,208,205,96
  179. 5190 fori=960to1022:readn:pokei,n:next:return
  180. 5200 data 0,0,0,0,0,0,0
  181. 5210 data 0,0,0,0,0,0,0
  182. 5220 data 0,0,0,0,0,1,192
  183. 5230 data 0,0,224,0,0,112,0
  184. 5240 data 255,252,0,255,255,0,255
  185. 5250 data 252,0,0,112,0,0,224
  186. 5260 data 0,1,192,0,0,0,0
  187. 5270 data 0,0,0,0,0,0,0
  188. 5280 data 0,0,0,0,0,0,0
  189.